10 REM ***************************
20 REM ***       DER DREH      ***
30 REM ***                     ***
40 REM ***    EIN SPIEL VON    ***
50 REM ***                     ***
60 REM ***   GUENTER  KRAMER   ***
70 REM ***                     ***
80 REM *** FUER COMMODORE-DISC ***
90 REM ***************************
100 IFV>0THEN130
110 V=1
120 LOAD"MP-SPRITE DREH",8,1
130 IFV=2THEN160
140 V=2
150 LOAD"MP-DREH",8,1
160 GOSUB350
170 GOSUB700
180 GOSUB1260
190 POKEZE,22:POKESP,0:SYSCU
200 PRINT"EIN NEUES SPIEL? (J/N)"
210 POKE198,0
220 GETA$:IFA$=""THEN220
230 IFA$="N"THEN310
240 IFA$<>"J"THEN220
250 POKEV+21,0
260 GOSUB1060
270 POKE781,22:SYS59903
280 POKEZE,22:POKESP,0:SYSCU
290 PRINTCHR$(158)"F1 = LOESUNG"
300 GOTO180
310 SYS2048
320 REM ****************
330 REM *** VARIABLE ***
340 REM ****************
350 PRINTCHR$(28)CHR$(147)
360 POKE53280,0:POKE53281,0
370 B=1024
380 F=55296
390 V=53248
400 S=2040
410 T=54272
420 ZE=214
430 SP=211
440 CU=58640
450 DIMT$(4)
460 DIMK(7)
470 FORI=0TO4
480 READA
490 IFA=0THEN560
500 IFA<10THEN520
510 T$(I)=T$(I)+CHR$(A):GOTO480
520 FORJ=1TOA
530 T$(I)=T$(I)+CHR$(32)
540 NEXT
550 GOTO480
560 NEXT
570 DATA176,99,105,8,176,99,105,6,105,0
580 DATA98,1,98,117,99,105,105,117,105
590 DATA2,98,1,98,105,117,105,117,99,105,171,99,105,0
600 DATA98,1,98,171,99,189,171,107,3
610 DATA98,1,98,171,107,1,171,99,189,98,1,98,0
620 DATA98,1,98,98,2,98,4,98,1,98,98
630 DATA2,98,2,98,1,98,0
640 DATA173,99,107,106,99,107,106,4
650 DATA173,99,107,106,2,106,99,107,106,1,106,0
660 RETURN
670 REM *********************
680 REM *** BILD AUFBAUEN ***
690 REM *********************
700 FORI=200TO236
710 POKEB+I,160
720 NEXT
730 POKEB+240,160
740 FORI=241TO259
750 POKEB+I,120
760 NEXT
770 FORI=260TO276
780 POKEB+I,160
790 NEXT
800 POKEB+280,160:POKEB+316,160
810 POKEB+320,160:POKEB+356,160
820 FORI=360TO396
830 POKEB+I,160
840 NEXT
850 POKEB+375,252
860 POKEB+376,121:POKEB+377,254
870 FORI=237TO239
880 FORJ=0TO160STEP40
890 POKEF+I+J,0:POKEB+I+J,160
900 NEXTJ,I
910 SYS12*4096
920 GOSUB1060
930 FORI=0TO4
940 POKE214,I+12:POKE211,1
950 SYS58640
960 PRINTCHR$(156)T$(I)
970 NEXT
980 POKEZE,14:POKESP,25:SYSCU
990 PRINTCHR$(158)"EIN SPIEL VON"
1000 PRINTTAB(27)"G. KRAMER"
1010 POKEZE,22:POKESP,0:SYSCU
1020 PRINTCHR$(158)"F1 = LOESUNG"
1030 REM **************************
1040 REM *** SPRITES EINSTELLEN ***
1050 REM **************************
1060 FORI=0TO15STEP2
1070 POKEV+I+1,101
1080 POKEV+14-I,14+9*I
1090 NEXT
1100 POKE2047,15
1110 FORI=0TO6
1120 POKES+I,13
1130 NEXT
1140 POKEV+33,0:POKEV+32,0
1150 FORI=0TO7
1160 POKEV+39+I,13
1170 NEXT
1180 POKEV+37,5:POKEV+38,7
1190 POKEV+28,255:POKEV+27,255
1200 POKEV+16,0
1210 POKEV+21,255
1220 RETURN
1230 REM ********************
1240 REM *** SPIEL LAEUFT ***
1250 REM ********************
1260 D=1:K=0
1270 FORI=0TO7:K(I)=0:NEXT
1280 POKEZE,0:POKESP,15:SYSCU
1290 PRINTCHR$(150)" "D;
1300 PRINTCHR$(157)". DREH"
1310 E=0
1320 POKE56322,224
1330 E1=PEEK(56320)
1340 E2=PEEK(56321)
1350 POKE56322,255
1360 E1=E1ANDE2
1370 IF(E1AND1)=0THENE=1
1380 IF(E1AND2)=0THENE=2
1390 IF(E1AND4)=0THENE=3
1400 IF(E1AND8)=0THENE=4
1410 IF(E1AND16)=0THENE=E+16
1420 IFE>0THEN1490
1430 GETA$
1440 IFD>1THEN1470
1450 IFA$=CHR$(133)THEN1700
1460 GOTO1280
1470 IFA$=CHR$(133)THEN1660
1480 GOTO1280
1490 POKE198,0
1500 IFE=3THENGOSUB2000
1510 IFE=4THENGOSUB2090
1520 IFE<16THEN1280
1530 POKEZE,22:POKESP,0:SYSCU
1540 PRINTCHR$(158)"F1 = ABBRECHEN"
1550 GOSUB2170
1560 A=0:FORI=0TO6
1570 A=A+K(I)
1580 NEXT
1590 IFA<7THEN1280
1600 GOSUB2410
1610 FORT1=1TO350
1620 SYS49161
1630 IFPEEK(V+16)<255THEN1650
1640 IFPEEK(V)>180THENPOKEV+21,0
1650 NEXT
1660 RETURN
1670 REM ***************
1680 REM *** LOESUNG ***
1690 REM ***************
1700 A=PEEK(61)+256*PEEK(62)
1710 POKE65,AAND255
1720 POKE66,A/256
1730 FORI=0TO9
1740 READL(I)
1750 NEXT
1760 DATA4,3,6,3,4,3,5,3,4,3
1770 IFK=1THENGOSUB2000
1780 FORI0=0TO10
1790 GOSUB2200
1800 GOSUB2090:GOSUB2090:GOSUB2200
1810 GOSUB2000:GOSUB2000:GOSUB2200
1820 GOSUB2090:GOSUB2200
1830 GOSUB2000:GOSUB2200
1840 IFI0=10THEN1960
1850 FORJ=1TOL(I0)
1860 GOSUB2090
1870 NEXT
1880 GOSUB2200
1890 FORJ=1TOL(I0)
1900 GOSUB2000
1910 NEXT
1920 GOSUB2200
1930 GOSUB2090:GOSUB2200
1940 GOSUB2000
1950 NEXT
1960 GOTO1600
1970 REM ***************************
1980 REM *** SCHIEBEN NACH LINKS ***
1990 REM ***************************
2000 IFK=0THEN2050
2010 FORI=1TO18
2020 SYS49158
2030 NEXT
2040 K=K-1
2050 RETURN
2060 REM ****************************
2070 REM *** SCHIEBEN NACH RECHTS ***
2080 REM ****************************
2090 IFK=7THEN63999
2100 IFK=0THEN2120
2110 IFK(K-1)=0THEN2160
2120 FORI=1TO18
2130 SYS49161
2140 NEXT
2150 K=K+1
2160 RETURN
2170 REM ********************
2180 REM *** DREHEN KNOPF ***
2190 REM ********************
2200 IFK=0THEN2230
2210 IFK=7THEN2270
2220 IFK(K-1)=1THEN2270
2230 K(K)=ABS(K(K)-1)
2240 POKES+K,13+K(K)
2250 GOSUB2340
2260 D=D+1
2270 POKEZE,0:POKESP,15:SYSCU
2280 PRINTCHR$(150)" "D;
2290 PRINTCHR$(157)". DREH"
2300 RETURN
2310 REM **************
2320 REM *** SCHUSS ***
2330 REM **************
2340 FORT0=0TO24:POKET+T0,0:NEXT
2350 POKET+5,9:POKET+1,21
2360 POKET+24,15:POKET+4,129
2370 RETURN
2380 REM **************
2390 REM *** GLOCKE ***
2400 REM **************
2410 POKET,207
2420 POKET+1,34:POKET+3,8
2430 POKET+7,255
2440 POKET+8,34:POKET+10,8
2450 POKET+14,231
2460 POKET+15,34:POKET+17,8
2470 POKET+5,9:POKET+6,9
2480 POKET+12,9:POKET+13,9
2490 POKET+19,9:POKET+20,9
2500 POKET+24,15
2510 FORI=1TO6
2520 POKET+4,65:POKET+11,64
2530 FORJ=0TO100:NEXT
2540 POKET+11,65:POKET+18,64
2550 FORJ=0TO100:NEXT
2560 POKET+4,64
2570 POKET+18,65
2580 FORJ=0TO100:NEXT
2590 NEXT
2600 POKET+11,64
2610 POKET+18,64
2620 POKET+24,0
2630 RETURN